Option Explicit
Sub I_Sample009()
    Dim mySht  As Worksheet
    Set mySht = Worksheets(1)				'N
    With mySht
    MsgBox (.VPageBreaks.Count + 1) * _
    (.HPageBreaks.Count + 1) & ""
    End With
    Set mySht = Nothing					'
End Sub
